Getting 10 random rows based on clarity ‘IF’

Steps to reproduce:

  1. Press Knit
  2. Sit back and relax
getClarityDF(params$clarity, 999) %>% 
  DT::datatable(
    options = list(
      pageLength = params$n_rows,
      lengthMenu = c(params$n_rows * params$n_rows ^ c(0:2))))

Getting an awesome plot

Steps to reproduce:

  1. Press Knit
  2. Sit back and relax
plotClarity(params$clarity)

Say something about clarity ‘IF’

Steps to reproduce:

  1. Press Knit
  2. Sit back and relax
printClarity(params$clarity)

The diamonds of IF clarity range from $369 - $18806, compared to the average for all diamonds, $3932.80. The most expensive diamond is at the 99.9963 percentile.